home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1986 March & April / rerun-1986-03-04.d64 / keypad 64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  1.5 KB  |  49 lines
  1. 500 poke828,peek(65):poke829,peek(66)
  2. 510 poke56,peek(56)-1:poke52,peek(56):clr
  3. 520 ifpeek(644)-peek(56)<2goto510
  4. 530 poke65,peek(828):poke66,peek(829)
  5. 540 pg=peek(56):ml=pg*256
  6. 550 forx=mltoml+152:readz:pokex,z:next
  7. 560 forx=ml+247toml+312:readz:pokex,z:next
  8. 570 forx=1to16:readz:pokeml+z,pg:next
  9. 580 pokeml+13,pg+1:pokeml+286,pg+1
  10. 590 print" ";:forx=1to38:print"*";:next:print
  11. 600 print" **  c-64 keypad now ready for use   **"
  12. 610 print" **  use sys"ml+115"to restart wedge  **"
  13. 620 print" ";:forx=1to38:print"*";:next:print
  14. 630 sysml+115:poke2,10:new
  15. 640 data173,141,2,201,6,240,14,201
  16. 650 data5,208,3,76,,193,169,0
  17. 660 data141,103,192,240,27,173,103,192
  18. 670 data208,76,238,103,192,173,104,192
  19. 680 data73,1,141,104,192,173,179,192
  20. 690 data73,28,141,179,192,76,77,192
  21. 700 data164,198,240,50,185,118,2,162
  22. 710 data9,221,105,192,240,4,202,16
  23. 720 data248,96,173,104,192,240,31,138
  24. 730 data9,48,153,118,2,169,15,141
  25. 740 data24,212,169,65,141,18,212,160
  26. 750 data32,136,208,253,169,64,141,18
  27. 760 data212,169,,141,24,212,96,0
  28. 770 data0,77,74,75,76,85,73,79
  29. 780 data55,56,57,162,,142,104,192
  30. 790 data189,49,234,201,104,240,6,157
  31. 800 data167,192,232,208,243,173,21,3
  32. 810 data201,234,208,12,120,169,192,141
  33. 820 data21,3,169,167,141,20,3,88,96
  34. 830 data32,,192,104,168,104,170,104,64
  35. 840 data166,211,240,1,96,174,103,192
  36. 850 data208,250,238,103,192,24,165,20
  37. 860 data101,2,170,165,21,105,,32
  38. 870 data205,189,162,,189,53,193,32
  39. 880 data210,255,224,3,240,3,232,208
  40. 890 data243,165,198,208,7,230,198,169
  41. 900 data32,141,119,2,96,68,65,84,65
  42. 910 data18,23,28,31,36,39,44,47
  43. 920 data59,68,119,129,142,249,263,268
  44. 930 data38,170,43,170,80,14,81,144
  45. 940 data83,200,85,13,86,144,87,96
  46. 950 data95,13,96,144,100,14,101,144
  47. 960 data121,191,128,158,147,158,281,221
  48. 970 data25,66,51,40,70,21
  49.